home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00060_Script_60 < prev    next >
Text File  |  1997-07-29  |  1KB  |  42 lines
  1. global over_paused
  2. on mousedown
  3.   set the castnum of sprite the clickon = cast "sub_rewind down"
  4.   updatestage
  5.   set over_paused = FALSE
  6.   set gQTchannel = 22
  7.   set theOriginalRate = the movierate of sprite gQTchannel
  8.   set the movierate of sprite gQTchannel = 0
  9.   --  puppetsprite 3, true
  10.   
  11.   if the shiftDown then set jumpDistance = 1
  12.   else set jumpDistance = 120 -- 2 seconds' worth per click
  13.   
  14.   set themovietime = the movietime of sprite gQTchannel
  15.   set the movietime of sprite gQTchannel = themovietime - jumpDistance
  16.   
  17. -- set the castnum of sprite 35 = cast "PAUSE.PCT"
  18.   updatestage
  19.   
  20.   if the stillDown then
  21.     set currJumpBackDist = currJumpBackDist * 1.1 -- linear speedup
  22.     repeat while the stillDown
  23.       set themovietime = the movietime of sprite gQTchannel
  24.       set jump = themovietime - integer(currJumpBackDist)
  25.       if jump < 0 then 
  26.         set the movietime of sprite gQTchannel = 0
  27.         updatestage
  28.         exit repeat
  29.       else
  30.         set the movietime of sprite gQTchannel = themovietime  -  integer(currJumpBackDist)
  31.         set currJumpBackDist = currJumpBackDist + 1
  32.       end if
  33.       updatestage
  34.     end repeat
  35.   end if
  36.   
  37.   set the movierate of sprite gQTchannel to theOriginalRate
  38.   updatestage
  39. end
  40. on mouseup
  41.   updatestage
  42. end